1
'------------------------------------------------------------------------------
3 ' This code was generated by a tool.
4 ' Runtime Version:2.0.50727.1426
6 ' Changes to this file may cause incorrect behavior and will be lost if
7 ' the code is regenerated.
9 '------------------------------------------------------------------------------
16 <Global.System
.Runtime
.CompilerServices
.CompilerGeneratedAttribute(), _
17 Global.System
.CodeDom
.Compiler
.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "9.0.0.0"), _
18 Global.System
.ComponentModel
.EditorBrowsableAttribute(Global.System
.ComponentModel
.EditorBrowsableState
.Advanced
)> _
19 Partial
Friend NotInheritable Class Settings
20 Inherits
Global.System
.Configuration
.ApplicationSettingsBase
22 Private Shared defaultInstance
As Settings
= CType(Global.System
.Configuration
.ApplicationSettingsBase
.Synchronized(New Settings
),Settings
)
24 #Region
"My.Settings Auto-Save Functionality"
25 #
If _MyType
= "WindowsForms" Then
26 Private Shared addedHandler
As Boolean
28 Private Shared addedHandlerLockObject
As New Object
30 <Global.System
.Diagnostics
.DebuggerNonUserCodeAttribute(), Global.System
.ComponentModel
.EditorBrowsableAttribute(Global.System
.ComponentModel
.EditorBrowsableState
.Advanced
)> _
31 Private Shared
Sub AutoSaveSettings(ByVal sender
As Global.System
.Object, ByVal e
As Global.System
.EventArgs
)
32 If My
.Application
.SaveMySettingsOnExit
Then
39 Public Shared ReadOnly
Property [Default
]() As Settings
42 #
If _MyType
= "WindowsForms" Then
43 If Not addedHandler
Then
44 SyncLock addedHandlerLockObject
45 If Not addedHandler
Then
46 AddHandler My
.Application
.Shutdown
, AddressOf AutoSaveSettings
52 Return defaultInstance
59 <Global.Microsoft
.VisualBasic
.HideModuleNameAttribute(), _
60 Global.System
.Diagnostics
.DebuggerNonUserCodeAttribute(), _
61 Global.System
.Runtime
.CompilerServices
.CompilerGeneratedAttribute()> _
62 Friend Module MySettingsProperty
64 <Global.System
.ComponentModel
.Design
.HelpKeywordAttribute("My.Settings")> _
65 Friend ReadOnly
Property Settings() As Global.CustomApplicationLibrary
.Settings
67 Return Global.CustomApplicationLibrary
.Settings
.Default